AmigActive 26/AACD 26.iso/AACD/Programming/RxCD/Install

Text File | 2001-09-23 | 6.6 KB | 208 lines

; $VER: RxCD_Install 11.0 (23.9.01)

(procedure P_SetMessages

    (if (= "italiano" @language)
        (
            (set #WhatInstallPromptMsg            "Cosa vuoi installare?")
            (set #WhatInstallHelpMsg            "Scegli cosa vuoi installare:\n\nLibrerie - le librerie di RxCD\nUtilità - alcune programmi d'utilità\nDocumentazione - la documentazione RxCD in formato AmigaGuide\nEsempi - alcune macro d'esempio")

            (set #WhatInstallLibrariesMsg        "Librerie")
            (set #WhatInstallUtilitiesMsg        "Utilità")
            (set #WhatInstallDocumentationMsg    "Documentazione")
            (set #WhatInstallExamplesMsg        "Esempi")

            (set #AskLibsDirPromptMsg            "Scegli la directory dove installare le librerie")
            (set #AskLibsDirHelpMsg                "Nella directory che sceglierai, saranno installate le librerie di RxCD. La directory deve essere nell'assegnamento logico LIBS:")

            (set #AskUtilitisDirPromptMsg        "Scegli la directory dove installare le utilità")
            (set #AskUtilitiesDirHelpMsg        "Nella directory che sceglierai, saranno installate le utilità di RxCD. La directory deve essere nella path.")

            (set #AskGuideDirPromptMsg            "Scegli la directory dove installare la documentazione")
            (set #AskGuideDirHelpMsg            "Nella directory che sceglierai, sarà installata la documentazione di RxCD.")

            (set #AskExamplesDirPromptMsg        "Scegli la directory dove installare gli esempi")
            (set #AskExamplesDirHelpMsg            "Nella directory che sceglierai, saranno installate alcune macro d'esempio.")

            (set #CopyingLibsMsg                "Sto copiando le librerie")
            (set #CopyingUtilitiesMsg            "Sto copiando le utilità")
            (set #CopyingGuideMsg                "Sto copiando la ducmentazione")
            (set #CopyingExamplesMsg            "Sto copiando gli esempi")
        )
        (
            (set #WhatInstallPromptMsg            "What do you want to install?")
            (set #WhatInstallHelpMsg            "Choose what you want to install:\nLibraries - all the libraries needed by RxCD to work\nUtilities - some little utilities, such as rxs, needed to call macros from inetd\nDocumentation - RxCD documentation in AmigaGuide format\nExamples - RxCD ARexx macros")

            (set #WhatInstallLibrariesMsg        "Libraries")
            (set #WhatInstallUtilitiesMsg        "Utilities")
            (set #WhatInstallDocumentationMsg    "Documentation")
            (set #WhatInstallExamplesMsg        "Examples")

            (set #AskLibsDirPromptMsg            "Select the drawer where you want to install RxCD libraries")
            (set #AskLibsDirHelpMsg                "In the drawer you supply here, there will be installed RxCD.library rxlibnet.library and rmh.library. This drawer MUST BE in your LIBS: assignment")

            (set #AskUtilitisDirPromptMsg        "Select the drawer where you want to install some RxCD little utilities.")
            (set #AskUtilitiesDirHelpMsg        "In the drawer you supply here, there will be installed some little utilities such as rxs, needed to launch macro from inetd and rxhelp, needed to obtain RxCD functions inline help. The best drawer to place them is C: ; anyway, it should be in your PATH")

            (set #AskGuideDirPromptMsg            "Select the drawer where you want to install RxCD documentation")
            (set #AskGuideDirHelpMsg            "In the drawer you supply here, there will be installed the RxCD documentation in AmigaGuide format")

            (set #AskExamplesDirPromptMsg        "Select the drawer where you want to install RxCD examples macro")
            (set #AskExamplesDirHelpMsg            "In the drawer you supply here, there will be installed some RxCD examples ARexx macros")

            (set #CopyingLibsMsg                "Copying or Updating libraries")
            (set #CopyingUtilitiesMsg            "Copying or Updating utilities")
            (set #CopyingGuideMsg                "Copying documentation")
            (set #CopyingExamplesMsg            "Copying examples")
        )
    )
)

(procedure P_ChooseWhatIstall
    (set #WhatInstall (askoptions (prompt #WhatInstallPromptMsg)
                                  (help #WhatInstallHelpMsg)
                                  (choices #WhatInstallLibrariesMsg #WhatInstallUtilitiesMsg #WhatInstallDocumentationMsg    #WhatInstallExamplesMsg)
                         )
     )
)

(procedure P_AskLibsDir
    (set #libsDir
        (askdir
               (prompt #AskLibsDirPromptMsg)
               (help #AskLibsDirHelpMsg)
               (default "LIBS:")
          )
     )
)

(procedure P_AskUtiliesDir
    (set #utilitiesDir
        (askdir
               (prompt #AskUtilitisDirPromptMsg)
               (help #AskUtilitiesDirHelpMsg)
               (default "C:")
          )
     )
)

(procedure P_AskGuideDir
    (set #guideDir
        (askdir
           (prompt #AskGuideDirPromptMsg)
           (help #AskGuideDirHelpMsg)
           (default "Ram:")
        )
     )
)

(procedure P_AskExamplesDir
    (set #examplesDir
        (askdir
            (prompt #AskExamplesDirPromptMsg)
               (help #AskExamplesDirHelpMsg)
               (default "Ram:")
          )
     )
)

(procedure P_CopyLibs
    (working #CopyingLibsMsg)
    (set #localLibsDir (tackon #source-dir "LIBS/"))
    (foreach #localLibsDir "#?"
          (copylib
               (source (tackon #localLibsDir @each-name))
               (dest #libsDir)
          )
     )
)

(procedure P_CopyUtilities
    (working #CopyingUtilitiesMsg)
    (set #localUtilitiesDir (tackon #source-dir "C/"))
    (foreach #localUtilitiesDir "#?"
          (copylib
               (source (tackon #localUtilitiesDir @each-name))
               (dest #UtilitiesDir)
          )
     )
)

(procedure P_CopyCatalogs
    (set #catSourceDir (tackon #source-dir (tackon "Catalogs" @language)))
    (set #catDestDir (tackon "Locale:" (tackon "Catalogs" @language)))
    (if (= (and (= (exists (#catSourceDir)) 2) (= (exists (#catDestDir)) 2)) 1)
        (foreach #catSourceDir "#?"
              (copylib
                   (source (tackon #catSourceDir @each-name))
                   (dest #catDestDir)
              )
         )
    )
)

(procedure P_CopyDocs
    (working #CopyingGuideMsg)
    (copyfiles
        (source (tackon #source-dir "DOCS/english/"))
          (dest #guideDir)
          (optional force askuser)
          (all)
     )
)

(procedure P_CopyDocs
    (working #CopyingGuideMsg)
    (set #docSourceDir (tackon #source-dir (tackon "DOCS" @language)))
    (if (<> (exists #docSourceDir) 2) (set #docSourceDir (tackon #source-dir "DOCS/english/")))
    (copyfiles    (source #docSourceDir)
                  (dest #guideDir)
                  (optional force askuser)
                  (all)
     )
)


(procedure P_CopyExamples
    (working #CopyingExamplesMsg)
    (copyfiles
        (source (tackon #source-dir "EXAMPLES/"))
          (dest #examplesDir)
          (optional force askuser)
          (all)
     )
)

(set @default-dest "LIBS:")
(set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon)) (expandpath @icon)))

(P_SetMessages)

(complete 0)

(P_ChooseWhatIstall)

(if (= 0 #WhatInstall) (exit))
(if (BITAND #WhatInstall 1)  (P_AskLibsDir))
(if (BITAND #WhatInstall 2)  (P_AskUtiliesDir))
(if (BITAND #WhatInstall 4)  (P_AskGuideDir))
(if (BITAND #WhatInstall 8)  (P_AskExamplesDir))

(if (BITAND #WhatInstall  1)
    (
        (P_CopyLibs)
        (P_CopyCatalogs)
    )
)
(complete 30)

(if (BITAND #WhatInstall 2)  (P_CopyUtilities))
(complete 40)

(if (BITAND #WhatInstall 4)  (P_CopyDocs))
(complete 80)

(if (BITAND #WhatInstall 8)  (P_CopyExamples))
(complete 100)